home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / scanfax2.ifx < prev    next >
Text File  |  2004-08-03  |  922b  |  52 lines
  1. /*
  2.  * $VER: ScanFax 2.0.0 (8.6.93)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Updated for ImageFX 2.0.
  8.  *
  9.  * Scan multiple monochrome pages from an Epson ES800C with a
  10.  * document feeder attachment, save as FAXX files for PhonePak.
  11.  * You must enable the document feeder before running this macro.
  12.  *
  13.  */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. RequestFile '"Output Fax File:"'
  18. IF rc ~= 0 THEN EXIT
  19. faxfile = result
  20.  
  21. RequestThree '"Fax Resolution:"' 'Normal' 'Fine' 'Cancel'
  22. IF rc ~= 0 THEN EXIT
  23. res = result
  24.  
  25. IF res = 'Normal' THEN
  26.    yd = 100
  27. ELSE
  28.    yd = 200
  29.  
  30. Menu Scanner
  31.  
  32. pagenum = 1
  33.  
  34. DO FOREVER
  35.  
  36.    Message 'Scanning Page' pagenum
  37.  
  38.    /* requires 2.0 */
  39.    Scanner DetailScan LENGTH 11 Mono Dpix 200 Dpiy yd ADF MAPPED
  40.    IF rc ~= 0 THEN LEAVE
  41.  
  42.    SaveRenderedAs FAXX '"'faxfile'"' Keep Fine
  43.  
  44.    pagenum = pagenum + 1
  45.  
  46.    END
  47.  
  48. SaveRenderedAs FAXX '"'faxfile'"' Close
  49. KillMapped
  50.  
  51. EXIT
  52.